3
How do I change the control's border, using your EBN files

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oStatusBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oStatusBar := XbpActiveXControl():new( oForm:drawingArea )
	oStatusBar:CLSID  := "Exontrol.StatusBar.1" /*{0885027A-DF96-481F-928C-E3E3788889BA}*/
	oStatusBar:create(,, {10,60},{610,370} )

		oStatusBar:BeginUpdate()
		oStatusBar:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
		oStatusBar:Appearance := 16777216/*0x1000000+*/
		oStatusBar:VisualAppearance():Add(4,"c:\exontrol\images\border.ebn")
		oStatusBar:VisualAppearance():Add(5,"CP:4 1 1 -1 -1")
		oStatusBar:SetProperty("BackColorPanels",0x5000000)
		oStatusBar:Format := "1,2,3,4,(5/6/7/8)"
		oStatusBar:Debug := .T.
		oStatusBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
2
How do I remove the control's border

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oStatusBar

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oStatusBar := XbpActiveXControl():new( oForm:drawingArea )
	oStatusBar:CLSID  := "Exontrol.StatusBar.1" /*{0885027A-DF96-481F-928C-E3E3788889BA}*/
	oStatusBar:create(,, {10,60},{610,370} )

		oStatusBar:BeginUpdate()
		oStatusBar:Appearance := 0/*None2*/
		oStatusBar:VisualAppearance():Add(4,"c:\exontrol\images\border.ebn")
		oStatusBar:VisualAppearance():Add(5,"CP:4 1 1 -1 -1")
		oStatusBar:SetProperty("BackColorPanels",0x5000000)
		oStatusBar:Format := "1,2,3,4,(5/6/7/8)"
		oStatusBar:Debug := .T.
		oStatusBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN
1
How can I change the control's font

#include "AppEvent.ch"
#include "ActiveX.ch"

PROCEDURE Main
 	LOCAL oForm
	LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
	LOCAL oStatusBar
	LOCAL f

	oForm := XbpDialog():new( AppDesktop() )
	oForm:drawingArea:clipChildren := .T.
	oForm:create( ,,{100,100}, {640,480},, .F. )
	oForm:close  := {|| PostAppEvent( xbeP_Quit )}

	oStatusBar := XbpActiveXControl():new( oForm:drawingArea )
	oStatusBar:CLSID  := "Exontrol.StatusBar.1" /*{0885027A-DF96-481F-928C-E3E3788889BA}*/
	oStatusBar:create(,, {10,60},{610,370} )

		oStatusBar:BeginUpdate()
		oStatusBar:VisualAppearance():Add(4,"c:\exontrol\images\border.ebn")
		oStatusBar:VisualAppearance():Add(5,"CP:4 1 1 -1 -1")
		oStatusBar:SetProperty("BackColorPanels",0x5000000)
		f := CreateObject("StdFont")
			f:Name := "Verdana"
			f:Size := 12
		oStatusBar:Font := f
		oStatusBar:Format := "" + CHR(34) + "static text" + CHR(34) + "[fg=255][a=17],11,22,(33/44)"
		oStatusBar:EndUpdate()

	oForm:Show()
	DO WHILE nEvent != xbeP_Quit
		nEvent := AppEvent( @mp1, @mp2, @oXbp )
		oXbp:handleEvent( nEvent, mp1, mp2 )
	ENDDO 
RETURN